CAADiameters_MarsSemidiameterA <-
function(Delta){
.Call("CAADiameters_MarsSemidiameterA", Delta)
}
